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H 12 
| BASSPOWHH ; BASIC hfloat ** hfloat routine 15-SEP-1984 23:59:4 AX/VMS Macro v04-00 Page 1 
| 1-002 a ioety 7 98530:48 EBASRIL. SREIGASPOUHH.MAR: 1 . (1) 
68 1 TITLE eassegum ; BASIC hfloat ** hfloat routine 
| 09 ; “IDENT /1-002/ : File: BASPOWHH.MAR Edit :PLL1002 
| i : See eeeeneccccrccececcccnecereneecccncnccncreeeceocececccesceceeqceeeoececcece 
;* 
000 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
4 8 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
it 1 :* ALL RIGHTS RESERVED . 
Py fy 
000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
$? 1 :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
aie 1g < TRANSFERRED. * 
H ® 
0000 18 ;* THE gh ye IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 $9 :* CORPORATION. * 
3 ® 
0000 3 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. + 
0000 $e 3* « 
0000 5 ;* ® 
4464 27 FRRAAAAAETAAAAAAARAAAAAAAAAAAAAAAA AA ATAE AAA AA AAAA TARA eAATeAeeK eA eAe ATL TT eT 
000 : 
0000 8 
0000 9 3+ 
44 , $ FACILITY: Basic Support Library © 
9009 ‘ : ABSTRACT: 
0000 4: This module contains entry points to support exponentiation 
4 i : (** or *) in BASIC-PLUS-2 for hfloat ** hfloat. 
0000 7 : ENVIRONMENT: User Mode, AST Reentrant 
0000 s 3 
0000 9 ;:- 
4 rt : AUTHOR: P. Levesque , CREATION DATE: 5-0ct-81 
0000 4g : MODIFIED BY: 
0000 4 i+ 
444 4G : 1-901 - Original 
000 45 ; 02 - Fix some typos (wrong OTS$ name). PLL 7-0ct-81 
| 
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| BASSPOWHH ; BASIC hfloat ** hfloat routine 15-SEP-1984 23:59:4 AX/VMS Macro v04-00 P 
1885 BECLARATIONS : 57oE= 1382 93530:48 EBASRTL. SRCIBASPOWHH.MAR: 1 tee 3) 
0 f ; -SBTTL DECLARATIONS 
° ‘3 ; INCLUDE FILES: 
it & 
| 009 § ; EXTERNAL DECLARATIONS: 
| 9009 5° .DSABL GBL ; Prevent undeclared 
000 2$ 3 symbols from seine 
464 ; ; automatically global. 
| $600 § -EXTRN OTSSPOWHH_R3 ; OTSS hfloat ** hfloat exponentiation 
0000 60 sEXTRN OTSSPOWHJ RS 3; OTS$ hfloat ** int exponentation 
0000 67 -EXTRN BASS$K_DIVBY_ZER : Divide by Zero 
0000 66 EXTRN BAS$K-ILLARGLOG : Illegal argument in LOG 
0000 6 EXTRN BASSSSTOP ; Error reporting routine 
0000 64 
0000 65 ; 
0000 66 ; MACROS: 
0000 67 ; 
0000 68 
0000 69 ; 
0000 70 ; EQUATED SYMBOLS: 


74 : OWN STORAGE: 


78 ; PSECT DECLARATIONS: 


80 ° -PSECT _BASSCODE PIC, USR, CON, REL, LCL. SHR, - 
81 EXE, RD, NOWRT, LONG 


0000 
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| BASSPOWHH ; BASIC hfloat ** hfloat routine 15-SEP-1984 23:59:4 AX/VMS Macro V04-00 Page 
| 1-002 BASSPOWHH = BASIC hfloat ** hfloat Fat ets 7 93;30,48 EBASRTL. SRE JBASPOWHH MAR: 1 ° (3) 
| 09 ¢ “ -SBTTL BASSPOWHH = BASIC hfloat ** hfloat 
| 9 § 3 FUNCTIONAL DESCRIPTION: 
$00 3 3 This routine takes BASE ** EXP, using the following table 
| B80 5: for unusual cases: 
000 91: BASE > Call OTS$POWHH, normal case. 
44 38 ; BASE = 0, EXP > Return 0.0. 
00 93 ; BASE = 0, EXP = Return 1.0. 
0000 94 ; BASE = 0, EXP < Error: divide by zero 
4 95 ; BASE < 0, EXP even integer Call OTS$POWHJ with -BASE 
000 96 ; BASE < 0, EXP odd integer Call OTS$POWHJ with -BASE, negete result 
464 8 ; BASE < 0, EXP not integer Error: illegal argument in LOG. 
0000 99 ; CALLING SEQUENCE: 
0000 100 ; 
4444 13) 3 CALL result.wh.v = BASSPOWHH (base.rh.v, exponent.rh.v) 
0000 198 3; INPUT PARAMETERS: 
0000 104 ; 
00000004 0000 105 base = 4 
00000014 0000 106 exponent = 20 
0000 107 ; 
0000 108 ; IMPLICIT INPUTS: 
0000 109 ; 
0000 110; NONE 
0000 111; 
0000 116 ; OUTPUT PARAMETERS: 
0000 113; 
0000 114; NONE 
0000 115; 
000 116 ; IMPLICIT OUTPUTS: 
000 117; 
0000 118; NONE 
0000 119; 
0000 120 ; FUNCTION VALUE: 
0000 121 ; COMPLETION CODES: 
0000 1 ; : ; 
0000 123; hfloat result of exponentiation 
0000 124; 
44 ; 5 ; SIDE EFFECTS: 
44 1 > : Will signal Divide By Zero or Illegal er gunent in LOG if its 
8000 : 8 3 arguments are bad, and OTSSPOWHH aad OTSSPOWHJ may also signal. 
0000 130 ;-- 
44 131 
0000° 0000 1 § BASSPOWHH: : MASK OTSSPOeNH_AS é Entry point 
000 1 3; Since this routine uses no 
000 134 : registers and usually transfers 
000 135 3 control to OTSSPOWHH, we copy 
00 1 $ ; its register save mask and then 
Bp 1 ; JMP past its save mask and only 
138 3 save the registers once 
04 AC 73FD 000 139 TSTH base(AP) ; Test base relationship to zero 
15 0006 140 BLEQ 1$ : If base leq 0, do case analysis 
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; BASIC hfloat ** hfloat routine 15-SEP-1984 59:4 AX/VMS Macro V04-00 P 
BASSPOWHH - BASIC hfloat ** hfloat greee robe Foi8c:48 FANSHFS Sects voReOO ans, Page 
17 one 141 JMP G*OTSSPOWHH_R3+2 ; Transfer control to the OTS$ 
Soe 16 a 3 routine to do exponentiation 
OOE 144 : Come here if the base is less than or equal to zero. We must filter 
ObE 132 : several special cases, as described above. 
13 O00E 147 1s: BEQL © 4$ ; Branch if base = 0 
74FD Bat 148 EMODH gpoenenstar?., #0, #1, RO, RO 
12 Bot 133 os BNEQ $ ; Branch if exponent is not integer 
001A 151: The base is Less than zero and the exponent is an integer. 
Bata 136 3; BASIC defines fhis as york ing the same wey as if an integer was 
O1A 155 ; in the expression (making a hfloat variable which happens to 
BOTA 133 ; contain an integer value equivalent to an integer variable). 
6AFD OQOTA 136 . CVTHL exponent(AP), RO ; Convert exponent to integer 
DD OO1F 15 PUSHL RO 3; Save for even/odd test 
DD itd 158 PUSHL RO 3 Stack as parameter to OTSS$POWHJ 
72FD 0023 159 MNEGH base(AP), -(SP) 3; Stack -base also 
FB 0028 160 CALLS #3, G*OTSSPOWHJ_R3 : Call integer power routines 
E9 ita 161 BLBC (SP)+,2$ ; Branch if exponent even 
72FD 0032 19¢ MNEGH RO, rb ; Exponent odd, negate the result 
04 $038 197 2s: RET 3 and return with it. 
0037 165 ; Come here if the base is less than zero but the exponent is not 
boss 166 3 an integer. BASIC defines this as an error. 
9A 0037 168 S$: MOVZBL M#BASSK_ILLARGLOG, -(SP) ; ILlegal Argument in LOG 
FB $8 i$ CALLS #1, G*BASS$SSTOP : Never return. 
004 171 : Come here if the base is equal to zero. The value we return depends 
Boe ive 3; upon the sign of the exponent. 
73FD 004 174 4s: TSTH exponent (AP) ; Test the exponent opeinat zero 
19 004 175 BLSS 6$ : Branch if exponent [ss 0 
13 Ooee 176 BEQL 5$ ; Branch if exponent is 0 
004A 178 : Come here if the base is zero and the exponent is greater than zero. 
004A 179 ; BASIC defines this as 0.0. 
004A 180 ;:- 
7CFD QO4A 181 CLRH RO ; RO, R1 = 0.0 
04 0040 136 RET ; Return to caller 
Q004E 183 ;+ . ; : 
O4E 184 ; Come here if the base is zero and the exponent is zero. BASIC defines 
04E 185 ; this as 1.0. 
04E 1 § a 
187 5$: MOVH #1, - RO ; RO, RI = 1.0 
Bae 138 R RET 3; Return to caller. 
098 190 : Come here if the base is zero and the exponent is less than zero. 
B3 13 3; BASIC defines this as an error. 
05 138 és: MOVZBL M#BASSK_DIVBY_ZER, -(SP) ; Divide by zero 
FB 32 H+ CALLS #1, G*BASS$STOP ; Report error, never return. 
005E 196 ° END 
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| BASSPOWHH ; BASIC hfloat ** hfloat routine i 3 PS 9 $332: *6 raed Macro v04-00 Page ib 


| Symbol table 66-SEP-1984 BASRTL.SRCJ BASPOWHH.MAR: 1 
BASSSSTOP eeeeeeee § 0 
BASSK_DIVBY ZER teeeeeee 09 
BASSK ILLARGLOG eeereree 0 
BASSPOWHH 00000000 RG 01 
= 00000004 
EXPONENT = 00000014 
OTSSPOWHH_ F eeeeeeee =X 00 
OTSSPOWHJ_R eevenere = xX 00 
wae noe nme aac ue } 
: Psect synopsis ! 
bowen emer nn cere ea} 
PSECT name Allocation PSECT No. Attributes 
- OS 00000000 ( 0.) O0O¢ OQ.) NOPIC USR CON ABS LCL oe NOEXE NORD NOWRT NOVEC BYTE 
_BASSCODE QOOOO0SE ( 94.) O1C¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
jmonwevenseeeeeenennnemnt 
! Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.08 0:00:00.7 
peunene processing 104 00:00:00.44 0:00:02. 
73 00:00:00.52 00:00:01.31 
Synbol table sort 0 he Bh Se 00:00:00.00 
48 00:00:00.37 00:00:00.96 
wok, table output 2 00:00:00.01 00:00:00.02 
Psect synopsis cutput 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 bs SS Bh OF 88 80-08 
Assembler run totals 260 0:00:01.45 00:00:05. 


The working + Limit was 900 pages. 

2225 bytes { pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 8 non-local and 6 local symbols. 
196 source (ene were read in Pass 1, id. 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Macro library name Macros defined 

“$255$DUA28: CSYSLIBISTARLET. MLB; 2 0 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 

MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASPOWHH/OBJ=0BJ$:BASPOWHH MSRC$:BASPOWHH/UPDATE=(ENHS:BASPOWHH) 
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